home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / music / oscbas.arj / OSCASM.ASM < prev    next >
Assembly Source File  |  1994-05-10  |  879b  |  31 lines
  1. .Model Medium,BASIC
  2. .DATA
  3.         text1 db 'Written by Shannon Larratt$'
  4.  
  5. .CODE
  6.  
  7. PUBLIC Screen13
  8. Screen13 Proc
  9.         mov  ax, 13h    ;go to 320x200x256 graphics mode
  10.         int  10h        ;video interrupt
  11.         mov  ah, 86h    ;elapsed time wait
  12.         mov  cx, 10h    ;set time delay
  13.         mov  dx, 10h    ;set time delay
  14.         int  15h        ;system BIOS interrupt
  15.         ret             ;back to basic
  16. Screen13 Endp
  17.  
  18. PUBLIC ScreenEnd
  19. ScreenEnd Proc
  20.         mov  ax, 03h    ;go to 80x25x16 text mode
  21.         int  10h        ;video interrupt
  22.         mov  ah, 09h    ;write text
  23.         mov  dx, offset text1   ;point to text string
  24.         int  21h        ;DOS services interrupt
  25.         mov  ax, 0c00h  ;clear keyboard buffer
  26.         int  21h        ;DOS services interrupt
  27.         ret             ;back to basic
  28. ScreenEnd Endp
  29.  
  30. END
  31.